unit ufmStandard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufmBase, cxControls, cxContainer, cxEdit, cxGroupBox, StdCtrls,
  cxButtons, xDBButton, DB, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, MemDS,
  DBAccess, Uni, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, Menus,
  cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxDBData;

type
  TfmStanderd = class(TfmBase)
    gbTop: TcxGroupBox;
    btnAppend: TxDBButton;
    btnDelete: TxDBButton;
    btnEdit: TxDBButton;
    btnSave: TxDBButton;
    btnCancel: TxDBButton;
    dsMaster: TDataSource;
    qrMaster: TUniQuery;
    gbMain: TcxGroupBox;
    gdMaster: TcxGrid;
    tvMaster: TcxGridDBTableView;
    glMaster: TcxGridLevel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmStanderd: TfmStanderd;

implementation

uses DM;

{$R *.dfm}

procedure TfmStanderd.FormCreate(Sender: TObject);
begin
  inherited;
  if qrMaster.Active then
    qrMaster.Close;
  qrMaster.Open;
end;

end.
